unit SmallStruct.Configuration.TSSActionConfiguration;

interface

uses Classes,
  SmallStruct.Configuration.TSSConfiguration,
  SmallStruct.Configuration;

type
  TSSActionConfiguration = class(TSSConfiguration, ISSActionConfiguration)
  private
    _ActionName: string;
    _BusinessObjectName: TStringList;
  public
    function GetActionName: string;
    function GetBusinessObjectName: TStrings;
    procedure SetActionName(const AActionName: string);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

implementation

{ TSSActionConfiguration }

constructor TSSActionConfiguration.Create(AOwner: TComponent);
begin
  inherited;
  _BusinessObjectName := TStringList.Create;
end;

function TSSActionConfiguration.GetActionName: string;
begin
  Result := _ActionName;
end;

function TSSActionConfiguration.GetBusinessObjectName: TStrings;
begin
  Result := _BusinessObjectName;
end;

procedure TSSActionConfiguration.SetActionName(const AActionName: string);
begin
  _ActionName := AActionName;
end;

destructor TSSActionConfiguration.Destroy;
begin
  _BusinessObjectName.Free;
  inherited;
end;

end.
